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ABSTRACT 


This  document  discusses  the  procedure  for  using  the  FASP,  Facility  for 
Automated  Software  Production,  located  at  the  Naval  Air  Development  Center  in 
Warminster,  Pennsylvania.  A  datalink  from  the  VAX  in  building  80  to  NADC 
exists  and  may  be  accessed  to  assemble  SPL  code  which  is  used  within  the 
UYS-1,  a  signal  processor  utilized  by  each  sonar  system.  The  procedure  for 
processing  the  SPL  code  via  the  FASP,  transforming  it  into  a  form  usable 
within  the  UYS-1  and  executing  the  code  is  explained. 
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I.  INTRODUCTION 

In  order  to  use  the  FASP,  Facility  for  Automated  Software  Production,  a 
password  and  username  must  be  obtained.  Contact  Charlie  Cerquitella, 
215-441-2486,  at  NADC  to  establish  an  account.  The  command 
@DBA2:[PROTEUS.19]LOGIN.COM  should  be  placed  in  your  login  command  file  if  the 
SQR-19  UYS-1  is  to  be  accessed.  Use  the  sonar  system  number  that  applies  to 
you. 


Note  the  page  of  references  at  the  end  of  this  memorandum  for  documents 
which  are  necessary  in  using  the  FASP  and  the  UYS-1,  for  programming  with  SPL, 
and  for  understanding  what  I  am  about  to  discuss. 

II.  FASP  PROCEDURE 

Store  your  SPL  program  (example:  Figure  1)  and  FASP  job  stream  (example: 
Figure  2)  in  the  VAX.  In  order  to  assemble,  link,  use  the  relocating  loader, 
and  encode  the  SPL  program,  the  following  procedure  should  be  followed: 

Access  MUX.  MUX  enables  you  to  use  the  remote  job  entry  channel  to 
NADC.  Only  one  user  at  a  time  may  use  the  datalink.  In  the  command  mode  input 

MUX 

The  system  will  prompt  you  for  a  site  address.  The  proper  response  is 

160 

An  input  file  and  an  output  file  must  be  opened.  The  input  file  contains 
your  SPL  program  and  the  output  file  will  contain  whatever  is  returned  from 
NADC  after  assembly.  The  commands  are 

I  fil ename.type 

0  f ilename2.type 

To  contact  NADC  through  the  remote  job  entry  channel  use  the  command 

REM 

The  datalink  telephone,  located  behind  the  VAX  in  building  80,  must  now 
be  dialed.  Dial  out  with  the  TALK  button  pressed  down,  wait  for  a  tone,  press 
the  red  DATA  button  and  hang  up  the  receiver.  The  number  is 
93-1-215-674-9850.  You  will  be  prompted  for  your  username  and  password. 

To  send  the  SPL  program  down  to  NADC  use  the  command 

G0,CR1 

See  Figure  3  for  a  list  of  commands  which  may  be  used  on  the  remote  job 
entry  channel. 

A  short  period  of  time  will  elapse  and  a  "Ready"  response  will  appear. 

To  determine  whether  your  program  is  ready  to  be  returned,  query  the  print 
queue  by  using  the  command 

DIS,PR 
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Depending  upon  the  complexity  of  your  SPL  program,  the  program  name  may 
not  appear  in  the  queue  until  hours  later.  The  program  name  that  appears  will 
not  be  the  filename  you  designated  but  a  code  assigned  at  NADC. 

When  your  program  appears  in  the  print  queue,  retrieve  it  by  using  the 
command 

GO.LP1 

A  "Ready"  response  indicates  that  the  output  file  you  designated  contains 
your  assembled  program. 

The  command  which  will  return  you  to  MUX  is 

CTRL/Z 

While  in  MUX,  close  the  input  and  output  files  and  "log  keep"  so  you  do 
not  need  to  redial  NADC.  The  appropriate  commands  are 

CL  0 

CL  I 

L  KEEP 

Examine  your  output  file  to  insure  that  there  are  no  errors.  If  there 
are,  correct  your  file  using  the  VAX  editor,  change  the  identification  number 
of  your  program  by  updating  the  version  character  and  date,  if  necessary, 
change  ADD  to  REP,  and  begin  the  procedure  once  agan.  (See  Figure  1). 

When  your  program  is  free  of  errors,  send  the  FASP  job  stream  to  NADC  to 
generate  a  load  module,  access  the  relocating  loader  and  linker,  include  your 
program  in  the  database,  and  encode  your  program.  Access  the  remote  job  entry 
channel  as  previously  described  and  open  an  output  file  and  an  input  file,  the 
FASP  job  stream.  (See  Figure  2).  By  following  the  procedure  explained  above, 
the  hex  code  of  the  SPL  program  will  be  returned  in  the  output  file.  To  exit 
the  remote  mode  type  a  CTRL/Z  and  to  log  out  of  MUX  type  LOG.  You  must  log 
out  of  MUX  before  logging  off  the  terminal  because  you  will  remain  connected 
to  MUX  if  you  do  not. 

III.  VAX  PROCEDURE 

Hex  code  may  be  patched  using  the  normal  editing  procedures  on  the  VAX. 
(Note:  Error  messages  were  being  produced  for  the  use  of  apostrophes  within 
the  SPL  code  so  patching  was  necessary.) 

The  hex  code  must  be  converted  to  binary  code  for  the  UYS-1.  Using 
"binfile"  as  the  name  of  the  file  to  contain  the  binary  code  and  "hexfile"  as 
the  name  of  the  file  containing  the  hex  code,  use  the  command 

LTS  binf ile.type=hexf ile.type 
to  achieve  the  hex  to  binary  conversion. 

An  initial  microprogram  load  on  the  UYS-1  must  occur  each  time  you  wish 
to  run  a  program.  The  command  is 

IPL 
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This  sends  an  initializing  program  to  the  UYS-1 ,  via  the  Proteus  Digital 
Channel,  which  is  converted  to  microcode  and  establishes  the  unit  loader,  a 
program  on  the  UYS-1  that  deciphers  which  channels  are  being  used,  and  the 
file  identification  number  is  determined.  This  communication  is  one  way  from 
the  VAX  to  the  UYS-1.  The  system  will  respond  with 

TST 

SRL 

X 

TST 

CIW  F0050000 
#E0000060 
#£0000020 
X 
$ 

if  the  IPL  is  successful.  If  the  UYS-1 1 s  power  is  not  on,  the  response  will 
stop  at  CIW  F0050000. 

The  system  I/O  must  be  invoked  with  the  specification  of  a  disk  file 
which  is  built  in  with  the  utility  task  LTS.  To  activate  the  binary  file  in 
the  VAX  which  comnuni cates  with  the  unit  loader  in  the  UYS-1  and  establish  two 
way  communication  use  the  command 

SIO  binfile.type 

The  system  will  respond  with 

SIO  ADAPTER  EMULATION  PROGRAM 
TYPE  CTRL  C  FOR  ATTENTION 

After  typing  a  CTRL/C,  the  system  will  respond  with  a  question  mark.  A 
control  interrupt  word  is  being  requested.  Input 

CIW  01040001 
CTRL/C 

The  system  will  respond  with  another  question  mark,  requesting  the  data 

word 


DW  00056000 

to  indicate  UYS-1  source  channel  5  and  file  group  6  are  being  accessed.  The 
system  will  respond  with 

#01 800000 
CHANNEL  RESET 
#01 000000 

To  exit  SIO  input 

CTRL/C 

X 
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Your  applications  program  stored  in  the  VAX  (example:  Figure  4)  which 
interacts  with  the  SPL  program  loaded  into  the  UYS-1  may  now  be  executed. 

To  debug  the  SPL  program,  use  the  Test  Bed  Command  Language  in  order  to 
examine  the  contents  of  storage  locations  within  the  UYS-1.  Refer  to  the 
user's  manual  for  more  information. 
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JOHN,CM45000 ,T100,P2. 

ACCOUNT , CD 1 8  8  0 , VERA  511. 

GET, FASP/UN=SC3024 . 

FASP. 

**EOR** 

L  F=ASP,U=NUSC53C,K=MS 

MODSW  ID=DM , DBV=CURRENT , PURGE=NO , EXTLDMD=NULL , LS=I , 

XLAT=ASSEM , S AVLST=NO 

**EOR** 

SEP114ABW 
ADD  RDTM2 

M 


I 


RDTM2 

CSECT 

RO 

EQU  0 

Rl 

EQU  1 

R2 

EQU  2 

R3 

EQU  3 

R6 

EQU  6 

R7 

EQU  7 

START 

BALR  R2 , 0 
USING  NEXT , R2 

NEXT 

LA  R3 , CHAN I 

LA  RO , CHANO 

TAGONE 

TCR  R3 

BNC  1, TAGONE 
LA  Rl , 80 

NIMA  Rl , 8 

BC  8, TAGONE 

LA  R7 , 84 

LA  Rl , 85 

LIMA  R6 , 0 

MIMS  0,164 

STA  R7 , SZE 
SCLK  R6 

TAGBLK 

XIO  R3 , IOC1 

TAGTWO 

TCR  R3 

BNC  1, TAGTWO 
BCT  Rl, TAGBLK 
RCLK  R6 

STA  R6,BUF3 
XIO  RO , IOC2 

TAGTHR 

TCR  RO 

BNC  1, TAGTHR 
XIO  RO , IOC3 

TAGFR 

TCR  RO 

BNC  1, TAGFR 

B  , TAGONE 

CNOP 

IOC1 

DS  1H 

SZE 

DS  1H 

DC  A(BUF1) 

IOC2 

DS  IF 

DS  IF 

IOC3 

DS  IF 

DC  A(BUF2 ) 

BUF2 

DS  1H 

BUF3 

DS  1H 

CHAN  I 

DS  1H 

Figure  1.  Example  SPL  Program 
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CHANO  DS  1H 

BUF1  DS  4000F 

END 

**EOR** 

**EOF** 


Figure 


(continued) 


10 


TM  No.  851005 


JOHN, CM4 5000 , T100 ,P2 . 

ACCOUNT , CD1 8  8  0 , VERA5 1 1 . 

GET , FASP/UN= SC  3  0  2  4 . 

FASP. 

**EOR** 

L  F=ASP,U=NUSC53C,K=MS 

GENLDMD  ID-DM, UN=CD1880 , DBV=CURRENT , PFNAME=LOADTP , EXTLDMD=NULL , LDDIR= INPUT  , 
PLAT=NAVY 

**EOR** 

LINKEROFF 

**EOR** 

PHASE  TIO,STORAGE=CP, 2048 

HEADER  FG=6 , FN=2 , RN=1 

INCLUDE  RDTM2 

EOF 

EOF 

**EOR** 

ENCODTP  VSN*NA , FORMAT=OLD , PFNAME=TEMP2 , LDNAME=#NULL , LDF I LE=LOADTP 

SENDTP  PFNAME=TEMP2 

**EOR** 

**EOF** 


Figure  2.  Example  FASP  Job  Stream 
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RBF  AND  EXPORT  COMMAND  COMPARISON 


EXPORT  COMMAND 


RBF  COMMAND ( S ) 


(A) GAIN  . 

( A) GAIN, nnn  . 

( B )  UP  . 

(C) ONTINU  . 

( D)  ROP , j  n  . 

( E )  ND , CR  . 

( E )  ND, LP  . 

(F) ORWARD, pages  . 

(G) O  . 

( I ) GNORE  . 

(k) ILL, jn  . 

(L) OGIN,userno,passwd 

LOGOUT  . 

(M)  ESS AGE  . 

(O) UTPUT, jn,ti  . 

(OUTPUT, jn  . 

(P)  RIOR, j n , new  . 

( Q )  UEUE , A  . 

(Q) UEUE , E  . 

(Q)UEUE, I  . 

( Q ) UEUE , 0  . 

( Q )  UEUE ,  R  . 

( Q ) UEUE , S  . 

( Q )  UEUE , T  . 

(R) EAD  . 

(R) EAD,xxx  . 

(S) USPEND  . 

( S ) USPEND , xxx  . 


( T ) ALLY , j  n 


(REW) IND, LP1 
SKIP, LP1, -nnn 


GO, LPl 

(PUR)GE, JOB=jn 
ABORT, CR1 
SKIP, LPl, DFL 
SKIP, LPl, nnn 
GO,CRl 

GO, CRl  or  LPl 
( PUR) GE , JOB= j  n 
LOGIN 

LOGOUT  or  LOGOFF 


(DIV)ERT, JOB=jn,USR=userno 
(DIV)ERT, JOB=jn 
CHANGE ,JOB=j  n , PR I  =  new 


( DIS ) PLAY , EX 
(DIS)PLAY, IN 
( DIS ) PLAY ,  PR 


GO, CRl 

( RES)  TORE, CRl , ACK 
GO, CRl 

STOP, LPl 
STOP, LPl 

(RET)  URN, LPl 

or  STOP, LPl, END 


Where 


jn 

new 

nnn 

pages 

xxx 


job  name  (computer  assigned) 

new  job  priority  (  0  <=  new  <=  7777  ) 

times  8  sectors  (  1  sector  =  640  characters  ) 

page  count 

any  non-null  character 


Figure  3.  Remote  Job  Entry  Commands 
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PROGRAM  PDC2 

SEND  DATA  FROM  VAX  TO  UYS-1  VIA  PROTEUS  DIGITAL  CHANNEL 
AND  DISPLAY  THE  TIME  IT  TOOK  TO  DO  THIS 

****** ****** ***********variables*** ***********************************  ********* 


* 


* 


C* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


OCIWN  OUTPUTTED  CONTROL  INTERRUPT  WORD 

UPPER  16  BITS  CONTAIN  BLOCK  SIZE,  LOWER  16  CONTAIN  NUMBER  OF 
BLOCKS  TO  BE  TRANSFERRED 

OCIW  (ORIGINAL)  OUTPUTTED  CONTROL  INTERRUPT  WORD,  CONTAINS  BLOCK 
COUNT 

ICIW  INPUTTED  CONTROL  INTERRUPT  WORD(=TIME  IT  TOOK  TO  TRANSFER 
BLOCKS,  16  LOW  ORDER  BITS  OF  CLOCK) 

ICIW1  SAME  AS  ABOVE  EXCEPT  IS  32  HIGH  ORDER  BITS 
HIGHO  CONTAINS  TIME  IT  TOOK  TO  TRANSFER  DATA 
ISTAT  STATUS  OF  QIO  WHEN  INPUTTING  (INTO  VAX) 

OSTAT  STATUS  OF  QIO  WHEN  OUTPUTTING  (FROM  VAX) 

CHANI  CONTAINS  DEVICE  NUMBER  OF  INPUT  CHANNEL ( SOURCE ) 

CHANO  CONTAINS  DEVICE  NUMBER  OF  OUTPUT  CHANNEL (SINK) 

TAPE  CONTAINS  DEVICE  NUMBER  OF  TAPE- VAX  CHANNEL 

EVOD  CONTAINS  A  ZERO  OR  ONE  DEPENDING  ON  WHETHER  JMOD'S  ARGUMENT  IS 

EVEN  OR  ODD 

W  STATUS  OF  WAITFR  FUNCTION 

X  COUNTER  USED  AS  JMOD'S  ARGUMENT 

Y  COUNTER  USED  TO  FILL  TAPE  WITH  DUMMY  INFO 

TEMP  USED  TO  TEMPORARILY  CONTAIN  OCIW  (BLOCK  COUNT)  WHEN  FILLING  TAPE 
I  COUNTER  USED  AS  SUBSCRIPT  OF  ARRAY  BUF 

SIZE  CONTAINS  SIZE  OF  BLOCKS  TO  BE  TRANSFERRED 
NUM  CONTAINS  NUMBER  OF  BYTES  TO  BE  TRANSFERRED 

ANS  CONTAINS  USER'S  ANSWER  TO  QUESTION  OF  WHETHER  TO  FILL  TAPE 

BLKl  AN  ARRAY  CONTAINING  DATA  TO  BE  TRANSFERRED  TO  THE  UYS-1,  MAX 
4000  32  BIT  WORDS/BLOCK 
BLK2  SAME  AS  BLKl 

BUF  SAME  AS  BLKl 


£***  **************  ******  IONS**  *  ******************************************** 


C* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


SYSSASSIGN  PROVIDES  A  PROCESS  WITH  AN  I/O  CHANNEL  SO  I/O  OPERATIONS 

MAY  BE  PERFORMED  ON  A  DEVICE,  ASSIGNS  A  DEVICE  NAME  TO 
A  LOCATION 

PARAMETERS:  DEVICE  NAME 

ADDRESS  OF  WORD  TO  RECEIVE  CHANNEL  NUMBER 
ASSIGNED 

SYSSQIO  INITIATES  AN  I/O  OPERATION  BY  QUEUEING  A  REQUEST  TO 

A  CHANNEL  ASSOCIATED  WITH  A  SPECIFIC  DEVICE 
PARAMETERS:  NUMBER  OF  EVENT  FLAG  TO  BE  SET  AT  COMPLETION 

NUMBER  OF  I/O  CHANNEL  ASSIGNED  TO  REQUESTED 
DEVICE 

FUNCTION  CODE  AND  MODIFIER  BITS  SPECIFYING  THE 
OPERATION  TO  BE  PERFORMED 
BUFFER  ADDRESS 
BYTE  COUNT 

SYSSWAITFR  WAIT  FOR  A  SINGLE  EVENT 

TESTS  A  SPECIFIC  EVENT  FLAG  AND  RETURNS  WHEN  FLAG  IS  SET 
PARAMETER:  NUMBER  OF  EVENT  FLAG  FOR  WHICH  TO  WAIT 

SYS $Q IOW  QUEUE  I/O  REQUEST  AND  WAIT  FOR  EVENT  FLAG 

COMBINES  QIO  AND  WAITFR  FUNCTIONS 
PARAMETERS:  SAME  AS  QIO 

JMOD  RETURNS  THE  REMAINDER  WHEN  THE  FIRST  ARGUMENT 

IS  DIVIDED  BY  THE  SECOND 


INTEGER* 4  OCIW, SYS$ASS IGN, SYS$QIOW, SYS$WAITFR, SYS$QIO , OCIWN , ANS , 

II ST AT, OSTAT, CHAN I , CHANO, W,X, EVOD, TAPE, I , Y , TEMP , ICIW1 , ICIW, NUM, S IZE , 


Figure  4.  Example  VAX  Applications  Program 
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1BLK1 ( 4000 ) , BLK2 ( 4000 ) ,BUF{4000) 

REAL *8  HIGHO 

C  ASSIGN  LOGICAL  UNIT  NUMBERS  TO  PDC  I/O  CHANNELS 

I STAT=SYS$ ASSIGN ( 'PDCIN' ,CHANI , , ) 

IF  (ISTAT.NE.l)  GO  TO  230 
OSTAT=SYS$ASSIGN ( 'PDCOUT' ,CHANO, , ) 

IF  (OSTAT.NE.l)  GO  TO  270 

C  ASSIGN  LOGICAL  UNIT  NUMBER  TO  CHANNEL  OF  MAGNETIC  TAPE 

I STAT= SYS $ ASSIGN ( ' _MTA0 ' , TAPE , , ) 

IF  (ISTAT.NE.l)  GO  TO  230 
90  WRITE  (6,100) 

100  FORMAT( IX, ' INPUT  NUMBER  OF  BLOCKS  TO  BE  TRANSFERRED'/, 

IX, ' (UP  TO  9999) ' ) 

READ  (6,110)  OCIW 
110  FORMAT (14) 

IF  ( OCIW. EQ. 0 )  GO  TO  290 

114  WRITE (6,115) 

115  FORMAT ( IX, ' INPUT  BLOCK  SIZE (BETWEEN  4  AND  4000)'/, 

IX,' THIS  WILL  BE  THE  NUMBER  OF  32  BIT  WORDS  IN  ONE  BLOCK’) 

READ (6, 117)  SIZE 
117  FORMAT (14) 

IF  (SIZE. GT. 4000)  GO  TO  114 
IF  (SIZE.LT.4)  GO  TO  114 
NUM=4*SIZE 

C  NUMBER  OF  BYTES  COMPUTED 

120  WRITE  (6,130) 

130  FORMAT ( IX ,' DO  YOU  WANT  THE  REQUESTED  NUMBER  OF  BLOCKS'/, 

IX, 'WRITTEN  TO  MAGNETIC  TAPE?'/, 

IX, • (TYPE  A  1  FOR  YES  OR  A  0  FOR  NO) ' ) 

READ  (6,150)  ANS 
150  FORMAT (II) 

IF  (ANS.EQ.l)  GO  TO  160 

IF  (ANS.EQ.0)  GO  TO  180 

GO  TO  120 

C  FILL  TAPE  WITH  DUMMY  INFO 

160  Y=0 

TEMP=OCIW+l 
170  Y-Y+l 

DO  1=1, SIZE 
BUF ( I )=Y 
END  DO 

OSTAT=SYS$QIOW( ,%VAL(TAPE) ,%VAL( ’20'X) , , , ,BUF , %VAL(NUM) , , , , ) 

IF  (OSTAT.NE.l)  GO  TO  270 
TEMP=TEMP-1 

IF  (TEMP.NE.0)  GO  TO  170 

OSTAT=SYS$QIOW( ,%VAL(TAPE) , %VAL ( ' 24 ’ X) ,,,,,,,,, ) 

IF  (OSTAT.NE.l)  GO  TO  270 
C  TAPE  IS  REWOUND 

C  SEND  A  CONTROL  INTERRUPT  WORD 

180  OCIWN=( SIZE*65536+OCIW) 

OSTAT=SYS$QIOW( ,%VAL(CHANO) , %VAL ( ’20'X) , , , ,OCIWN, %VAL ( 4 ) , , , , ) 

IF  (OSTAT.NE.l)  GO  TO  270 
X=2 

C  FILL  BLOCK 1 

ISTAT=SYS$QIOW( ,%VAL(TAPE) , %VAL ( ' 21’X) , , , , BLK1 , % VAL ( NUM ) , , , , ) 

IF  (ISTAT.NE.l)  GO  TO  230 
C  BEGIN  TO  SEND  BLOCK1 

OSTAT=SYS$QIO( %VAL ( 1 ) ,%VAL(CHANO) ,%VAL( ’ 320 ’X) , , , , BLK1 , %VAL (NUM) , 
IF  (OSTAT.NE.l)  GO  TO  270 

14  Figure  4  (continued) 
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C 

190 

C 

c 

c 

c 

c 

200 

C 

c 

c 

210 

c 

c 

c 

c 

c 

220 

221 

C 


BEGIN  TO  FILL  BLOCK 2 

ISTAT=SYS$QIO( %VAL ( 2 ) ,%VAL(TAPE) ,%VAL( ' 21'X) , , , , BLK2 , % VAL ( NUM ) ,  ,  ,  ,  ) 

IF  (ISTAT.NE.l)  GO  TO  230 
OCIW=OCIW-l 

IF  (OCIW.EQ.O)  GO  TO  210 
EVOD= JMOD ( X , 2 ) 

X=X+1 

IF  (EVOD.EQ.O)  GO  TO  200 

WAIT  FOR  BLOCK1  TO  FINISH  BEING  FILLED 

W=SYS$WAITFR( %VAL ( 1 ) ) 

IF  (W.NE.l)  GO  TO  250 

WAIT  FOR  BLOCK 2  TO  FINISH  BEING  SENT 

W=SYS$WAITFR( %val( 2 ) ) 

IF  (W.NE.l)  GO  TO  250 
BEGIN  TO  SEND  BLOCK 1 

OSTAT=SYS$QIO(%VAL(l) ,%VAL(CHANO) ,%VAL( ’320'X) , , , , BLK1 , %VAL ( NUM ) , , , , ) 

IF  (OSTAT.NE.l)  GO  TO  270 
BEGIN  TO  FILL  BLOCK 2 

ISTAT=*SYS$QIO(  %VAL(  2  )  ,  %VAL(TAPE)  ,  %VAL(  ’  21' X)  ,  ,  ,  ,  BLK2  ,  %VAL( NUM)  ,  ,  ,  ,  ) 

IF  (ISTAT.NE.l)  GO  TO  230 
GO  TO  190 

WAIT  FOR  BLOCK 1  TO  FINISH  BEING  SENT 
W=SYS$WAITFR( %VAL( 1) ) 

IF  (W.NE.l)  GO  TO  250 

WAIT  FOR  BLOCK2  TO  FINISH  FILLING 

W=SYS$WAITFR( %VAL ( 2 ) ) 

IF  (W.NE.l)  GO  TO  250 
BEGIN  TO  FILL  BLOCK1 

ISTATs=SYS$QIO(  %VAL(  1 )  ,  %VAL( TAPE)  ,%VAL(  ’21’X)  ,  ,  ,  , BLK1 ,  %VAL(  NUM)  ,  ,  ,  ,  ) 

IF  (ISTAT.NE.l)  GO  TO  230 
BEGIN  TO  SEND  BLOCK2 

OSTAT=SYS$QIO(%VAL(2) ,%VAL(CHANO) ,%VAL( ’ 320’X) , , , , BLK2 , %VAL ( NUM ) , , , , ) 

IF  (OSTAT.NE.l)  GO  TO  270 
GO  TO  190 

W=SYS$WAITFR( %VAL{ 1 ) ) 

IF  (W.NE.l)  GO  TO  250 
W=SYS$WAITFR( %VAL( 2 ) ) 

IF  (W.NE.l)  GO  TO  250 
READ  IN  TIME 

ISTAT=SYS$QIOW( ,%VAL(CHANI ) ,%VAL( ' 321 ’X) f , , , ICIW1 , %VAL( 4 )  ,  ,  ,  ,  ) 

IF  (ISTAT.NE.l)  GO  TO  230 

HIGH  ORDER  BITS  OF  CLOCK  READ  IN 

ISTAT=SYS$QIOW( ,%VAL(CHANI ) ,%VAL( ' 321'X) , , , , ICIW, %VAL ( 4 ) ,  ,  ,  ,  ) 

IF  (ISTAT.NE.l)  GO  TO  230 
LOW  ORDER  BITS  READ  IN 
HIGHO=( ICIW1 *65536. ) 

HIGHO=HIGHO+ICIW 

HIGH  ORDER  32  BITS  OF  CLOCK(TIMES  2  TO  THE  16 ) ADDED  TO  LOW  ORDER  16  BITS 
HIGHO= (HIGHO/ 1000 000 . ) 

CONVERT  FROM  MICROSECONDS  TO  SECONDS 
WRITE (6, 220) 

FORMAT ( IX ,' THE  TIME  IT  TOOK  THE  REQUESTED  BLOCKS  TO  BE'/, 

IX, 'TRANSFERRED  FROM  THE  VAX  TO  THE  UYS-1  IS') 

WRITE( 6,221)  HIGHO 

FORMAT ( FI 8 . 12 , '  SECONDS',/,/,/) 

OSTAT=SYS$QIOW( , % VAL (TAPE) ,%VAL( ' 24 ' X) ,,,,,,,,, ) 

IF  (OSTAT.NE.l)  GO  TO  270 
TAPE  IS  REWOUND 


GO  TO  90 


Figure  4  (continued) 
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230  WRITE  (6,240)  ISTAT 

240  FORMAT (’  STATUS  OF  INPUT  CHANNEL* '  ,  Z4 ) 

GO  TO  290 

250  WRITE  (6,260)  W 

260  FORMAT ('  STATUS  OF  WAIT  FOR=',Z4) 

GO  TO  290 

270  WRITE  (6,280)  OSTAT 

280  FORMAT ('  STATUS  OF  OUTPUT  CHANNEL* ', Z4 ) 

290  END 
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APPENDIX  A 


Appendix  A  contains  all  the  possible  VAX/VMS  System  I/O  function  codes 
and  modifiers  to  these  codes  for  VAX/UYS-1  interaction  via  the  Proteus  Digital 
Channel.  Note  reference  9  and  Figure  4  for  information  on  using  these. 
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VAX/VMS  I/O  Function  Codes 


IO$_ACCESS  32 
IO$_ACPCONTROL  38 
10$  AVAILABLE  11 
IO$~CLEAN  IE 
IO$_CON INTREAD  3C 
IO$~CONINTWRITE  3D 
IO$_CREATE  33 
IO$_DEACCESS  34 
IO$_DELETE  35 
IO$_DIAGNOSE  ID 
IO$_DRVCLR  04 
IO$_DSE  15 
IO$_ENDRUl  3A 
IO$_ENDRU2  3B 
IO$_ERASETAPE  06 
IO$_FORCE  37 
IO$__FORMAT  IE 
IO$_INITIALIZE  04 
1 0  $  __LOADMCOD E  01 
IO$_LOGICAL  2F 
IO$_MODIFY  36 
IO$_MOUNT  39 
IO$_NETCONTROL  36 
IO$_NOP  00 
10$  OFFSET  06 
IO$“PACKACK  08 
IO$_PHYSICAL  IF 
IO$_QSTOP  07 
IO$_RDSTATS  0D 
I O  $  _READHE AD  0E 
IO$_READINIT  3C 
IO$_READLBLK  21 
IO$_READPBLK  0C 
IO$_READPRESET  19 
IO$_READPROMPT  37 
1 0  $  _READTRACKD  10 
IO$_READVBLK  31 
IO$_RECAL  03 
IO$_RELEASE  05 
IO$_REREADN  16 
IO$_REREADP  17 
IO$_RETCENTER  07 
IO$_REWIND  24 
IO$_REWINDOFF  22 
IO$_SEARCH  09 
IO$_SEEK  02 
IO$_SENSECHAR  IB 
IO$_SENSEMODE  27 
IO$_SETCHAR  1A 
10$  SETCLOCK  37 
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VAX/VMS  I/O  FUNCTION  CODES  (CONTINUED) 


IO$_SETCLOCKP  05 
IO$_SETMODE  23 
IO$_SKIPFILE  25 
IO$_SKI PRECORD  26 
IO$_SPACEFILE  02 
IO$_SPACERECORD  09 
IO$_STARTDATA  38 
IO$_STARTDATAP  06 
I O  $  _S  T  ARTMP  ROC  0  2 
IO$_STARTSPNDL  19 
IO$_STOP  03 
IO$  _TT YREAD ALL  3A 
IO$_TTYREADPALL  3B 
IO$_UNLOAD  01 
IO$_VIRTUAL  3F 
IO$_WRITECHECK  OA 
IO$_WRITECHECKH  18 
IO$_WRITEHEAD  0D 
IO$_WRITELBLK  20 
IO$_WRITEMARK  1C 
IO$_WRITEOF  28 
IO$_WRITEPBLK  0B 
IO$_WRITERET  18 
IO$_WRITETRACKD  OF 
IO$_WRITEVBLK  30 
10$  WRTTMKR  ID 
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APPENDAGES  TO  THE  VAX/VMS  FUNCTION  CODES 


Modifers  (prefix  to  function  code)  for  Proteus  Digital  Channel 
Output  Driver  (VAX  to  UYS-1) 

0  -  CIW 

1  -  NIW 

2  -  CW 

3  -  DW 


Modifers  for  Proteus  Digital  Channel  Input  Driver  (UYS-1  to  VAX) 


0 

1 

2 

3 

4 


CIW,NIW,CRS,SRL 
CIW,NIW ,DW ,CRS ,SRL 
CIW , NI W , CW , CRS , SRL 
ALL  SEQUENCES 
CRS, SRL 
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APPENDIX  B 


Appendix  B  contains  all  the  possible  status  codes  which  may  be  returned 
when  a  VAX/VMS  System  I/O  function  occurs. 
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SS$  ABORT 

=  0000002C 

SSJ  ACCONFLICT 

=  00000800 

SS$_ACCVIO 

=  oooooooc 

SS$  ACPVAFUL 

=  000002FC 

SS$  DEVINACT 

=  000020D4 

SS$  ALRDYCLOSED 

=  000006A9 

SS$  DEVMOUNT 

=  0000006C 

SS$  ARTRES 

=  00000474 

SS$  DEVNOTALLOC 

=  00000B58 

SS$  ASTFLT 

=  0000040C 

SS$  DEVNOTDI SM 

=  00002 1 B4 

SS$  BADATTRIB 

=  00000034 

SS$  DEVNOTMBX 

=  00000074 

SS$  BADCHKSUM 

=  00000808 

SS$  DEVNOTMOUNT 

=  0000007C 

SS$  BADE5CAPE 

=  0000003C 

SS$  DEVOFFLINE 

=  00000084 

SS$  BADFILEHDR 

=  00000810 

SS$  DEVREQERR 

=  00000334 

SS$  BADFILENAME 

=  00000818 

SS$  DGQINCOMP 

=  000009C0 

SS$  BADFILEVER 

=  00000820 

SS$  DIRALLOC 

=  000009C8 

SS$  BAD I MGHDR 

=  00000044 

SS$  DIRFULL 

=  00000860 

SS$  BADIRECTORY 

=  00000828 

SS$  DIRNOTEMPTY 

=  00002174 

SS$  BADISD 

=  00002004 

SS$  DISCONNECT 

=  0000204C 

SS$  BADPARAM 

=  00000014 

SS$  DRVERR 

=  OOOOOOOC 

SS$  BADQFILE 

=  000003BC 

SS$  DUPDSKQUOTA 

=  000003DC 

SS$  BADQUEUEHDR 

=  00000394 

SS$  DUPFILENAME 

=  00000868 

SS$  BADRCT 

=  00002 1 6C 

SSS  DUPLNAM 

=  00000094 

SS$  BADSTACK 

=  000002B4 

SS$  DUPUNIT 

=  00002 1 C4 

SS$  BADVEC 

=  00002064 

SS$  ENDOFFILE 

=  00000870 

SS$  BEGOFFILE 

=  00000938 

SS$  ENDOFTAPE 

=  00000878 

SS$  BLOCKCNTERR 

=  00000940 

SSS  ENDOFUSRLBL 

=  00000970 

SS$  BREAK 

=  00000414 

SSS  ENDOFVOLUME 

=  000009A0 

SS$  BUFBYTALI 

=  0000030C 

SSS  EOT I N 

=  00000C03 

SS$  BuFFEROVF 

=  00000601 

SSS  EXASTLM 

=  00002A04 

SS$  BUFNOTAL I GN 

=  00000324 

SSS  EXBIOLM 

=  00002A0C 

SS$  BUGCHECK 

=  000002A4 

SSS  EXBYTLM 

=  00002A14 

SS$  CANCEL 

=  00000830 

SSS  EXC PUT I M 

=  000020AC 

SS$  CHAINW 

=  OOOOOCOB 

SSS  EXDEPTH 

=  00000E1A 

SS$  CHANINTLK 

=  0000004C 

SSS  EXDIOLM 

=  00002A1C 

SS$  CLEARED 

=  00002104 

SSS  EXDI SKQUOTA 

=  000003EC 

SS$  CLIFRCEXT 

=  00000980 

SSS  EXENQLM 

=  00002A44 

SS$  CMODSUPR 

=  000004 1 C 

SSS  EXFILLM 

=  00002A24 

SS$  CMODUSER 

=  00000424 

SSS  EXGBLPAGF I L 

=  00002164 

SS$  COMMHARD 

=  000020C4 

SSS  EXPGFLQUOTA 

=  00002A2C 

SS$  COMPAT 

=  0000042C 

SS$  EXPORTQUOT A 

=  000003AC 

SS$  CONCEALED 

=  00000691 

SS$  EXPRCLM 

=  00002A34 

SS$  CONNECFAIL 

=  000020DC 

SSS  EXQUOTA 

=  000000 1C 

SS$  CONTINUE 

=  00000001 

SSS  EXQUOTAEND 

=  00002AFF 

SS$  CONTROLC 

=  00000651 

SSS  EXQUOTASTRT 

=  00002A00 

SS$  CONTROLO 

=  00000609 

SSS  EXTIDXFILE 

=  00000880 

SS$  CONTROLY 

=  0000061 1 

SSS  EXTQELM 

=  00002A3C 

SS$  CREATED 

=  00000619 

SSS  FACILITY 

=  00000000 

SS$_CTRLERR 

=  00000054 

SSS  FCPREADERR 

=  00000888 

SS$  CVTUNGRANT 

=  0000213C 

SSS  FCPREPSTN 

=  00000988 

SS$  DATACHECK 

=  0000Q05C 

SSS  FCPREWNDERR 

=  00000B9O 

SS$  DATAOVERUN 

=  00000838 

SSS  FCPSPACERR 

=  00000898 

SS$  DBGOPCREQ 

=  000006A 1 

SS$  FCPWR I  TERR 

=  000008A0 

SS$  DEADLOCK 

=  OOOOOEOA 

SSS  FILACCERR 

=  0000009C 

SS$  DEBUG 

=  0000046C 

SSS  FILALRACC 

=  000000A4 

SS$  DECOVF 

=  000004A4 

SS$  FILELOCKED 

=  000008A8 

SS$  DEVACTIVE 

=  000002C4 

SSS  FILENUMCHK 

=  000008B0 

SS$  DEVALLOC 

=  00000840 

SSS  FILEPURGED 

=  00000679 

SS$  DEVALRALLOC 

=  00000641 

SSS~  FILESEQCHK 

-  000008B8 

SS$  DEVASSIGN 

=  00000848 

SSS  FILESTRUCT 

=  000008C0 

SS$  DEVCMDERR 

=  0000032C 

SSS  FILNOTACC 

=  OOOOOOAC 

SS$  DEVFOREIGN 

=  00000064 

SSS  FILNOTCNTG 

=  000002AC 

SS$  DEVICEFULL 

=  00000850 

SSS  FILNOTEXP 

=  000000B4 
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SS*  FLTDIV 

-  00000494 

SS*  I VSECFLG 

=  00000 16C 

SS*  FLTDIV  F 

=  000004BC 

SS*  I VSECIDCTL 

=  000002E4 

SS$  FLTOVF 

=  000004BC 

SS*  IVSSRQ 

=  00000174 

SS$  FLTOVF  F 

=  000004B4 

SS*  IVSTSFLG 

=  00000 17C 

SS$  FLTUND 

=  0000049C 

SS*  IVTIME 

=  00000 1B4 

SS*  FLTUND  F 

=  000004C4 

SS*  JBCERROR 

=  000021BC 

SS*  FORCEDERROR 

=  00002144 

SS*  LCKPAGFUL 

=  00000004 

SS$  FORCEOEXIT 

=  00002 1 7C 

SS*  LENVIO 

=  00000 1 BC 

SS$  FORMAT 

=  OOOOOOBC 

SS*  LINEABRT 

=  00000E02 

SS*  GPTFULL 

=  OOOOOOC4 

SS*  LINKABORT 

=  000020E4 

SS$  GSDFULL 

=  oooooocc 

SS*  LINKDISCON 

=  000020EC 

SS$  HANGUP 

=  000002CC 

SS*  LINKEXIT 

=  000020F4 

SS$  HEADERFULL 

=  OOOOOBCB 

SS*  LKWSETFUL 

=  00000194 

SS$  I  DM I SMATCH 

=  000003F4 

SS*  MBFULL 

=  000008DB 

SS$  I DXF I LEFULL 

=  oooooaoo 

SS*  MBTOOSML 

=  00000 1 9C 

SS$  ILLBLKNUM 

=  OOOOOODC 

SS*  MCHECK 

=  000002BC 

SS$  I LLCDTST 

-  00002154 

SS*  MCNOTVALID 

=  0000035C 

SS$  I LLCNTRFUNC 

=  000000E4 

SS*  MEDOFL 

=  00000 1A4 

SS$  ILLEFC 

=  OOOOOOEC 

SS*  MSGNOTFND 

=  00000621 

SS$  ILLIOFUNC 

=  000000F4 

SS*  MTLBLLONG 

=  00000304 

SS$  ILLLBLAST 

=  00000968 

SS*  MULTRMS 

=  0000202C 

SS$  I LLPAGCNT 

=  OOOOOOFC 

SS*  MUSTCLOSEFL 

=  00000948 

SS$  ILLSElF 

=  00002 14C 

ss*~'noacnt 

=  00002B4C 

SS$  ILLSEQOP 

=  000002DC 

SS*  N0ALLSP00L 

=  00002824 

SS$  ILLSER 

=  00000104 

SS*  NOALTPRI 

=  00002B6C 

SS$  I LLUSRLBLRD 

=  00000958 

SS*  NOAQB 

=  00000314 

SS$  I LLUSRLBLWT 

=  00000960 

SS$  NOBUGCHK 

=  00002BBC 

SS$  INCOMPAT 

=  00000699 

SS*  NOBYPASS 

=  000028EC 

SS$~I NC VQLLABEL 

=  0000010C 

SS*  NOCMEXEC 

=  00002BOC 

SS$  INHCHME 

=  00000404 

SS*  NOCMKRNL 

=  00002804 

SS$  I NHCHMK 

=  000004CC 

SS*  NODATA 

=  00000 1  AC 

SS$  1NSFARG 

=  00000114 

SS*  NODETACH 

=  0000282C 

SS$  INSFBUFDP 

=  0000033C 

SS*  NODEVAVL 

=  000009BO 

SS$  INSFCDT 

=  00002 1 AC 

SS*  NODI AGNOSE 

=  00002834 

SS$  I NSFMAPREG 

=  00000344 

SS*  NODI 5KQU0TA 

=  000003E4 

SS$  INSFMEM 

=  00000124 

SS*  NOEXQUOTA 

=  0000289C 

SS$  INSFRAME 

=  00000 12C 

SS*  NOGROUP 

=  00002844 

SS*  INSFSPTS 

=  00002044 

SS*  NOGRPNAM 

=  000028  1C 

SS$  INSFWSL 

-  000001  1C 

SS*  NOHANDLER 

=  000008F8 

SS$  INTDIV 

=  00000484 

SS*  NOHOMEBLK 

=  OOOOD8EO 

SS$— INTERLOCK 

=  000003BC 

SS*  NOIOCHAN 

=  00000 1B4 

SS$  INTOVF 

=  0000047C 

SS*  NOLICENSE 

=  00002194 

SS$  INVLOGIN 

=  0000209C 

SS*  NOLINKS 

=  0000027C 

SS$  IVADDR 

=  00000134 

SS*  NOLISTENER 

=  00002 15C 

SS*~I VBUFLEN 

=  0000034C 

SS*  NOLOCKID 

=  OOOOOE 1 2 

SS*  IVCHAN 

=  00000 1 3C 

SS*  NOLOGNAM 

=  00000 1BC 

SS*  IVCHAR 

=  000020CC 

SS*  NOLOG  10 

=  0000283C 

SS*  I VCHNLSEC 

=  0000026C 

SS*  NOMBX 

=  00000274 

SS$  I VDEVNAM 

=  00000144 

SS*  NOMOREFILES 

=  00000930 

SS*  I VGSDNAM 

=  00000 14C 

SS*  NOMOREPROC 

=  000009A8 

SS*  IVLOCKID 

=  00002124 

SS$  NOMOUNT 

=  00002B8C 

SS*  IVLOGNAM 

=  00000154 

SS* 'nonetmbx 

=  000028A4 

SS*  IVLOGTAB 

=  0000015C 

SS*  NONEXDRV 

=  00000 1C4 

SS*  IVLVEC 

=  0000203C 

SS*  NONEXPR 

=  000008E8 

SS*  IVMOOE 

=  00000354 

SS$  NONLOCAL 

=  OOOOOSFO 

SS*  I VPROTECT 

=  000002F4 

SS*  NOOPER 

=  00002894 

SS*  I VQUOTAL 

=  00000164 

SS*  NOP  1 VA 

=  00002024 
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SSS  NOPFNMAP 

=  00002804 

SSS  PATHLOST 

=  000020FC 

SS$  NOPHV  10 

=  000028B4 

SS$  PFMBSY 

=  00000204 

SS$  NOPRI V 

=  00000024 

SSS  PLHLOR 

=  00000404 

SS$  NOPRI VEND 

=  000029FF 

SS$  POWERFAI L 

=  00000364 

SS$  NOPRI VSTRT 

=  00002800 

SS$  PRIVINSTALL 

=  00002054 

SS$  NOPRMCEB 

=  00002854 

SS$  PROTINSTALL 

=  0000205C 

SS$  NOPRMGBL 

=  000028C4 

SS$  PROTOCOL 

=  00002074 

SSS  NOPRMMBX 

=  00002B5C 

SSS  PSTFULL 

=  0000020C 

SSS  NOPSWAPM 

=  00002864 

SS$  QFACTIVE 

=  000003CC 

SSS  NOQFILE 

=  000003C4 

SS$  QFNOTACT 

=  000003D4 

SSS  NORMAL 

=  00000001 

SSS  RADRMOD 

=  0000044C 

SSS  NOSETPRV 

=  00002874 

SS$  RDOELDAT A 

=  00000661 

SSS  NOSHMBLOCK 

=  000003B4 

SS$  REJECT 

=  00000294 

SSS  NOSHMEM 

=  000028DC 

SSS  RELINK 

=  0000200C 

SSS  NOSHRIMG 

=  00002 1BC 

SSS  REMOTE 

=  00000649 

SSS  NOSIGNAL 

=  00000900 

SSS  REMRSRC 

=  0000206C 

SSS  NOSLOT 

=  0000039C 

SSS  RESET 

=  00002  IOC 

SS$  NOSOL I C I T 

=  00000284 

SSS  RESIGNAL 

=  00000918 

SS$  NOSUCHDEV 

=  00000908 

SSS  RESULTOVF 

=  00000214 

SSS  NOSUCHFILE 

=  00000910 

SS$  ROPRAND 

=  00000454 

SSS  NOSUCHNODE 

=  0000028C 

SS$  SECTBLFUL 

=  000002 1C 

SSS  NOSUCHOBJ 

=  000020A4 

SSS  SHARTOOBIG 

=  000020 1 C 

SSS  NOSUCHSEC 

=  00000978 

SS$  SHMGSNOTMAP 

=  0000036C 

SSS  NOSUCHUSER 

=  00002084 

SSS  SHMNOTCNCT 

=  0000037C 

SSS  NOSYSGBL 

=  000028CC 

SS$  SHRIDMISMAT 

=  000020BC 

sss'nosyslck 

=  000028F4 

SSS  SHUT 

=  0000208C 

SSS  NOSYSNAM 

=  00002814 

SSS  SSFAIL 

=  0000045C 

SSS  N0SYSPRV 

=  000028E4 

SSS  SUBLOCKS 

=  00002 1 2C 

SSS  NOT ALLPR I V 

=  00000681 

SS$  SUBRNG 

=  000004 AC 

SSS  N0TAPE0P 

=  00000264 

SSS  SUPERSEDE 

=  00000631 

SSS  NOTCREATOR 

=  00000384 

SS$  SUSPENDED 

=  000003A4 

SSS  NOTFILEDEV 

=  00000  ICC 

SS$  SYNCH 

=  00000689 

SSS  NOTINSTALL 

=  00002014 

SSS  SYSVERDIF 

=  00000671 

SSS  NOT I NTBLSZ 

=  00000 1D4 

SSS  TAPEPOSLOST 

=  00000224 

SSS  NOTLABELMT 

=  0000010C 

SSS  TBIT 

=  00000464 

SS$  NOTMODIFIED 

=  00000659 

SSS  THIRDPARTY 

=  0000207C 

SSS  NOTMPMBX 

=  0000287C 

SS$  TIMEOUT 

=  0000022C 

SSS  NOTNETDEV 

=  000002EC 

SSS  TOOMANVLNAM 

=  00000374 

SS$  NOTPRINTED 

=  00002184 

SSS  TOOMANYREDS 

-  000021  1C 

SSS  NQTQUEUED 

=  000009B8 

SS$  TOOMANYVER 

=  00000990 

SSS  NOTRAN 

=  00000629 

SSS  TOOMUCHDATA 

=  0000029C 

SSS  NOTSQDEV 

=  00000 1 E4 

SSS  UNASEFC 

=  00000234 

SSS  NOTVOLSET 

=  00000998 

SSS  UNREACHABLE 

=  0d002094 

SSS  NOVOLPRO 

=  000028AC 

SS$  UNSAFE 

=  0000023C 

SSS  NOWORLD 

=  00002884 

SSS  UNSOLICIT 

=  000021 14 

SSS  NOWRT 

=  000003FC 

SS$  UNWIND 

=  00000920 

SSS  OPCCUS 

=  00000434 

SS$  UNWINDING 

=  00000928 

SSS  OPCDEC 

=  0000043C 

SSS  VASFULL 

=  00000244 

SS$  OP I NCOMPL 

=  00000204 

SS$  VCBROKEN 

=  0000219C 

SSS  OPRABORT 

=  000020B4 

SSS  VCCLOSED 

=  000021 A4 

SSS  OVRDSKQUOTA 

=  00000669 

SSS  VECFULL 

=  00002034 

SSS  PAGOWNVIO 

=  000001  EC 

SSS  VECINUSE 

=  0000024C 

SSS  PAGRDERR 

=  00000444 

SSS  VOLINV 

=  00000254 

SS$  PARITY 

=  00000 1F4 

SSS  WAITUSRLBL 

=  00000950 

SS$  PARNOTGRANT 

=  00002134 

SSS  WASCLR 

=  00000001 

SSS  PARTESCAPE 

=  00000 1 FC 

SSS  WASECC 

=  00000639 

SS$  PARTMAPPED 

=  00000E22 

SSSlwASSET 

=  00000009 

SSS  WRITLCK 

=  0000025C 

SSSWRONGACP 

=  000003 1 C 
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